Top 10k strings from Utilidades 1 (1984)(Microparadise Software)(es)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Various - [TZX] (TOSEC-v2006-06-06) /

Back to the directory listing

   8 ;"____________":
   4           
   2 MC        
   2 ;"EL NUMERO QUE HAS ESCRITO NO ES  HEXADECIMAL. PRUEBA OTRA VEZ":
   2 );" bytes"
   2 "ALTURA : ";YP:
   2                
   1 z;'''"nombre: ";
   1 z;"Numero del contador: ";
   1 xcv                       X
   1 x,z;"Numero cinta: ";
   1 x$=x$+" ":
   1 wipe lower window
   1 unpack=300
   1 tapefile  
   1 t$="0"+t$:
   1 p$="dato":
   1 p$="Numero del contador":
   1 p$="Numero de la cinta":
   1 p$="Nombre del fichero":
   1 p$="Cual desea buscar":
   1 p$="Cinta que desea listar":
   1 p$="Cinta que desea borrar":
   1 p$="Borra? - 'si' para confirmar":
   1 n$=d$(c,n1
   1 input a string
   1 il-a,z;" ";
   1 il,ic;(p$);": ";#a;
   1 il+a,z;"no esta en el fichero":
   1 header    
   1 delrec=700
   1 delete an item
   1 delete a cassette
   1 delcass=800
   1 d$=k$+l$+m$+n$+o$+p$+q$+r$+s$+t$+u$+v$+w$+x$+y$+z$:
   1 d$="HEXADECIMAL":
   1 d$="DECIMAL":
   1 d$="BINARIO":
   1 d$(i)=d$(i+p)
   1 d$(i)=d$(i+a):
   1 conver    z
   1 cloner    
   1 change=600
   1 b$;b$;b$;b$;b$;"(";d$(i,
   1 a;"todas las cintas"
   1 a;"numero del dato ";c;"   Total: ";u;
   1 a;"cinta ";i$
   1 a;"cinta ";c$;"                       contador ";t$;
   1 a;"Pulse una tecla        ":
   1 a;"Pare la cinta y pulse una tecla":
   1 a;"Para trabajar con su fichero,   este debe tener al menos un     registro"
   1 a;"Es correcto (S/N) ?"
   1 a;"Contenido de ";:
   1 a;"Cintas en el fichero:";
   1 a;"A=ENTRADA  D=BORRAR  F=BUSCAR   C=CAMBIAR  L=LISTAR CONTENIDO   T=LISTAR CINTAS  S=SALVAR FICH. X=BORRAR CINTA   Q=FIN"
   1 a;" Cintas "
   1 Utilidades
   1 UTILIDADES 1
   1 UT11      
   1 TZX por Manuel Gomez Amate0
   1 PULSA EL NUMERO DEL PROGRAMA
   1 Microparadise
   1 MC        ,
   1 MAL-DECIMAL-BINARIO **
   1 LG        c
   1 IMAL - BINARIO **
   1 ECIMAL - DECIMAL **
   1 DB=DB+Q*P:
   1 Cual desea buscarI
   1 Castellano
   1 C         4
   1 ARIO - DECIMAL **
   1 AL - HEXADECIMAL **
   1 A$="0000000000000000"
   1 ;N;"-";A$(N);"  ";B$(N):
   1 ;"TIPO: ";
   1 ;"PULSE UNA TECLA PARA EMPEZAR":
   1 ;"NUMERO BINARIO ?                ";A$
   1 ;"ESPERA UN MOMENTO"
   1 ;"COMENZAMOS ?":
   1 ;"CARGANDO ";B$(NUM)
   1 ;" PULSE UNA TECLA PARA CONTINUAR "
   1 ;" NO PUEDEN INTRODUCIRSE NUMEROS   CON MAS DE CUATRO CARACTERES  ":
   1 ;" NO PUEDEN INTRODUCIRSE NUMEROS        SUPERIORES A 65535":
   1 ;"  PULSE PLAY Y DE A UNA TECLA   "
   1 ;"  PARA ELLO, DEBES INTRODUCIR    PRIMERO LA BASE (H,D o B) Y A    CONTINUACION EL NUMERO QUE            DESEAS CONVERTIR"
   1 ;"  EL NUMERO QUE HAS INTRODUCIDO   NO ES BINARIO.PRUEBA OTRA VEZ":
   1 ;"     UTILIDADES 1 - Indice      "
   1 ;"     SOLO SE ADMITEN NUMEROS      BINARIOS DE HASTA 16 DIGITOS  ":
   1 ;"     NO PUEDEN INTRODUCIRSE          NUMEROS FRACCIONARIOS      ":
   1 ;"     NO PUEDEN INTRODUCIRSE             NUMEROS NEGATIVOS       ":
   1 ;"     ESTE PROGRAMA CONVIERTE          NUMEROS HEXADECIMALES,          DECIMALES Y BINARIOS."
   1 2  45 1  P
   1 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
   1 ,z;"no hay sitio para mas cintas":
   1 ,z;"Entre nueva cinta. Pulse ENTER  para terminar"
   1 ,z;"Datos a cambiar:"'
   1 +D.L.: M-22387-84
   1 ** CONVERSION HEXADECI
   1 ** CONVERSION HEXAD
   1 ** CONVERSION DECIM
   1 ** CONVERSION DEC
   1 ** CONVERSION BIN
   1 )="tapefile":
   1 )="header":
   1 )="conver":
   1 )="cloner":
   1 )="Letras Gigantes"
   1 )="Lector de cabeceras":
   1 )="Copiador":
   1 )="Conversion de base":
   1 )="Archivo de Cintas":
   1 ''"Este programa sirve para crear  un archivo de sus cintas, tanto de programas como de video o    musica"
   1 "s-Fin de programa"
   1 "d-Salvar programa sin cabecera"
   1 "conversion"
   1 "convercode"
   1 "c-Salvar programa con cabecera"
   1 "b-Cargar programa sin cabecera"
   1 "a-Cargar programa con cabecera"
   1 "SOLO CARGA":
   1 "SEPARACION : ";S
   1 "Nombre de la matriz: ";
   1 "NUMERO HEXADECIMAL ? ";H$
   1 "NUMERO DECIMAL ? ";D
   1 "NOMBRE: ";
   1 "Matriz numerica"
   1 "Matriz alfanumerica"
   1 "Longitud: ";
   1 "LONGITUD: ";
   1 "LONGITUD TOTAL: ";
   1 "LONGITUD DEL PROGRAMA: ";
   1 "L.GIGANTES"
   1 "FRASE : ";
   1 "Este programa sirve para leer   los datos existentes en las ca- beceras de los programas"
   1 "EJECUCION AUTOMATICA LINEA ";
   1 "DIRECCION DE EMPIECE: ";
   1 "Con este programa se pueden     crear grandes rotulos en la     pantalla. Introduzca los datos amedida que se le vayan pidiendo."''"Si despues de completar el      rotulo desea modificarlo, pulse 2 para cambiar la frase o 3 paracambiar la altura"
   1 "Base  H D B ?  (* STOP)  ";B$
   1 "ANCHO : ";xc:
   1 "ALTO : ";YC:
   1 "                                                                                                ":
   1  ** Por R. Bernardo **
   1  (imagen)":
   1   1983   **  
   1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
   1                           
   1